home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / genlock / smovie / demo_2 < prev    next >
Text File  |  1995-02-13  |  2KB  |  79 lines
  1. |onc; turn on auto centring
  2. |dep 3; eight colours to play with
  3. |siz HIRES,300,140,160,0,0; size the viewing area
  4. |spc 10; spacing between lines (pixels)
  5. |plt 0,0,0,0
  6. |plt 1,0,0,0
  7. |plt 2,15,15,15
  8. |plt 3,0,0,0
  9. |plt 4,0,0,0
  10. |plt 5,0,0,0
  11. |plt 6,0,0,0
  12. |plt 7,0,0,0; all colours to black except for colour 2 (white)
  13. |col 2,1; foreground colour white, background black
  14. |clr; clear screen
  15. |spd 1;set scroll speed (1 is fairly fast, 0 is faster but flickery)
  16. |fnt topaz 11
  17. Standard workbench fonts in HIRES
  18.  
  19. |fnt ruby 8
  20. Smallest
  21. |fnt garnet 9
  22. |col 3,1
  23. Extremely small
  24. |fnt topaz 11
  25. |col 4,1
  26. Very small
  27. |fnt emerald 17
  28. |col 5,1
  29. Small
  30. |fnt diamond 20
  31. |col 6,1
  32. |spc 5
  33. Medium
  34. |fnt topaz 11
  35. |col 7,1
  36. The same fonts in LORES...
  37. |lns 10,0,0
  38. |dly 50; now switch on the colours with short delays between each
  39. |plt 3,0,15,15
  40. |dly 60
  41. |plt 4,0,15,0
  42. |dly 60
  43. |plt 5,15,0,0
  44. |dly 60
  45. |plt 6,15,15,0
  46. |dly 60
  47. |ssz 30,1,300,140,160,30,0; move view down on screen
  48. |dly 60
  49. |plt 0,0,15,15
  50. |dly 60
  51. |plt 7,15,15,15
  52. |dly 100
  53. |siz LORES,300,140,10,30,0; swap to LORES
  54. |dly 100
  55. |plt 1,7,5,5
  56. |plt 0,7,5,5
  57. |dly 100
  58. |ssz 110,2,300,130,120,30,0; move view to right
  59. |lns 140,0,0 ;scroll upwards 140 pixels
  60. |dly 50
  61. |plt 0,0,0,0
  62. |plt 1,0,0,0
  63. |cls
  64. |siz LORES,320,200,0,0,0 ;back to a normal LORES (NTSC) screen
  65. |ofc; switch off auto centring
  66. |fnt diamond 20
  67. You can use much bigger
  68. fonts than this one,  but this
  69. is the largest font supplied
  70. on standard workbench disks.
  71. |col 6,5
  72. |lns 10,0,0
  73. |ind 15; this indents the following text 15 pixels
  74. Try the other demos to see 
  75. some better effects.
  76.  
  77. |dly 160
  78. |fil fade; include the file 'fade' at this point
  79. |siz LORES,100,100,0,0,0;this prevents sMOVIE's end of file message